Velikost souboru

Otázka od: Jerry

20. 7. 2004 20:49

Zdravim vespolek,
nevi nekdo, jestli existuje nejaka funkce zjisteni souboru, ktera neni
limitovana velikosti souboru 2GB ?

Dekuji za odpoved
Jaroslav Vorlicek

Odpovedá: Jerry

20. 7. 2004 21:28

Zdravim ve spolek,
moc se omlouvam za dvojity post. Ta funkce by mela zjistovat velikost
souboru (Neco jako GetFileSize)a nemela by byt
limitovana velikosti souboru 2 GB

Jeste jednou se moc omlouvam za zbytecny mail a dekuji za odpoved
Jaroslav Vorlicek

----- Original Message -----
From: "Jerry" <jry2000@seznam.cz>
To: <delphi-l@clexpert.cz>
Sent: Tuesday, July 20, 2004 9:23 PM
Subject: Velikost souboru

> Zdravim vespolek,
> nevi nekdo, jestli existuje nejaka funkce zjisteni souboru, ktera neni
> limitovana velikosti souboru 2GB ?
>
> Dekuji za odpoved
> Jaroslav Vorlicek
>
>
>
>

Odpovedá: Jiri Bily

21. 7. 2004 6:03

No ale vzdyt funkce GetFileSize neni omezena velikosti 2 GB.

DWORD GetFileSize(
    HANDLE hFile, // handle of file to get size of
    LPDWORD lpFileSizeHigh // address of high-order word for file size
   );

Lze pouzit napr. nasledovne:

type
  TInt64Rec = record
    Lo,
    Hi: DWord;
  end;

var
  VelikostSouboru: Int64;
  h: THandle;

begin
  ...
  TInt64Rec(VelikostSouboru).Lo := GetFileSize(h,
@TInt64Rec(VelikostSouboru).Hi);
end;

----- Original Message -----
From: "Jerry" <jry2000@seznam.cz>
To: <delphi-l@clexpert.cz>
Sent: Tuesday, July 20, 2004 9:53 PM
Subject: Re: Velikost souboru

> Zdravim ve spolek,
> moc se omlouvam za dvojity post. Ta funkce by mela zjistovat velikost
> souboru (Neco jako GetFileSize)a nemela by byt
> limitovana velikosti souboru 2 GB
>
> Jeste jednou se moc omlouvam za zbytecny mail a dekuji za odpoved
> Jaroslav Vorlicek